home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / dc174v11.zip / RSB5DROP.MRG < prev   
Text File  |  1992-07-18  |  8KB  |  203 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. *          DROP174 (c) 1992 by Richie Molinelli
  5. * ------------[ Created 07-18-1992 02:51:12 ]------------
  6. * REPLACING old line(s) by new
  7. 63100 ' $SUBTITLE: 'DoorReturn - Subroutine to process requests from a door'
  8. ' $PAGE
  9. '
  10. '  NAME    -- DoorReturn
  11. '
  12. '  INPUTS  -- PARAMETER                      MEANING
  13. '             DOUTx.DEF               File of requests
  14. '
  15. '  OUTPUTS -- ZUserSecLevel     Revised Security Level
  16. '
  17. '  PURPOSE -- To give Doors a stable way to make requests
  18. '             to the host.
  19. '
  20.       SUB DoorReturn STATIC
  21.       IF NOT ZExitToDoors THEN _
  22.          EXIT SUB
  23.       CALL OpenUser (ZHighestUserRecord)
  24.       FIELD 5, 128 AS ZUserRecord$
  25.       FIELD 5,31 AS ZUserName$, _
  26.               15 AS ZPswd$, _
  27.                2 AS ZSecLevel$, _
  28.               14 AS ZUserOption$,  _
  29.               24 AS ZCityState$, _
  30. * ------[ first line different ]------
  31.                1 AS MachineType$, _                                  ' DROP174
  32.                1 AS ZDropTimes$, _                                   ' DROP174
  33.                1 AS ZBankTime$,_
  34.                4 AS ZTodayDl$, _
  35.                4 AS ZTodayBytes$, _
  36.                4 AS ZDlBytes$, _
  37.                4 AS ZULBytes$, _
  38.               14 AS ZLastDateTimeOn$, _
  39.                3 AS ZListNewDate$, _
  40.                2 AS ZUserDnlds$, _
  41.                2 AS ZUserUplds$, _
  42.                2 AS ZElapsedTime$
  43.       ZSubParm = 6
  44.       CALL FileLock
  45.       GET 5,ZUserFileIndex
  46.       ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2))
  47.       CALL SetSysOp
  48.       CALL SetUserPref
  49.       CALL SetUserUpDn
  50.       ZGlobalsSet = ZFalse
  51.       CALL SetGlobalUpDn
  52.       ZElapsedTime = CVI(MID$(ZUserRecord$,127,2))
  53.       ZFileName$ = "DOUT" + ZNodeID$ + ".DEF"
  54.       CALL FindIt (ZFileName$)
  55.       IF NOT ZOK THEN _
  56.          GOTO 63197
  57. * REPLACING old line(s) by new
  58. 63580 ' Displays user record
  59.       SUB DispUserRec (ToPrint) STATIC
  60.          ZOK = ZFalse
  61.          WasX$ = MID$(ZUserRecord$,ZStartHash,ZLenHash)
  62.          IF ASC(WasX$) = 0 OR LEFT$(WasX$,3) = "   " THEN _
  63.             EXIT SUB
  64.          WasOF = CVI(ZSecLevel$)
  65.          IF WasOF > ZUserSecLevel THEN _
  66.             IF NOT ZGlobalSysop THEN _
  67.                EXIT SUB
  68.          ZOutTxt$ = ZFG4$ + RIGHT$("     " + STR$(LOC(5)),4) + _
  69.               ":" + _
  70.               ZFG1$ + ZUserName$ + _
  71.               ZFG2$ + "SECURITY" + _
  72.               RIGHT$("      " + STR$(WasOF),6) + _
  73.               " "
  74.          ZOutTxt$ = ZOutTxt$ + _
  75.               ZFG3$ + "Password= " + _
  76.               ZPswd$ + ZEmphasizeOff$
  77.          GOSUB 63583
  78.          IF WasOF < ZOrigMainSec THEN _
  79.             ZOutTxt$ = ZEmphasizeOn$ + "<Locked out>" + ZEmphasizeOff$ + SPACE$(7) _
  80.          ELSE IF WasOF >= ZSysopSecLevel THEN _
  81.             ZOutTxt$ = ZEmphasizeOn$ + "  (SysOp)  " + ZEmphasizeOff$ + SPACE$(8) _
  82.          ELSE ZOutTxt$ = SPACE$(19)
  83.          ZOutTxt$ = ZOutTxt$ + _
  84.               ZLastDateTimeOn$ + _
  85.              "   " + _
  86.              ZFG4$ + ZCityState$ + ZEmphasizeOff$
  87.          GOSUB 63583
  88.          ZOutTxt$ = "  DOWNLOADS = " + _
  89.              RIGHT$("     " + STR$(CVI(ZUserDnlds$)),5) + _
  90.              "   " + _
  91.              "UPLOADS = " + _
  92.              RIGHT$("     " + STR$(CVI(ZUserUplds$)),5) + _
  93.              "   " + _
  94.              " Times on ="
  95.           ZOutTxt$ = ZOutTxt$ + RIGHT$("     " + STR$(CVI(MID$(ZUserOption$,1,2))),5) + _
  96.              "   TIME USED= " + _
  97.              STR$(CVI(ZElapsedTime$)) + _
  98.              " Min"
  99.          GOSUB 63583
  100.          ZOutTxt$ = "  Bank Time : " +_
  101.             RIGHT$("     " + STR$(ASC(ZBankTime$)),5)
  102. * ------[ first line different ]------
  103.          ZOutTxt$ = ZOutTxt$ + "   Dropped Carriers : " + _          ' DROP174
  104.             RIGHT$("     " + STR$(ASC(ZDropTimes$)),5)               ' DROP174
  105.          GOSUB 63583
  106.          IF NOT ZEnforceRatios THEN _
  107.             GOTO 63581
  108.          ZOutTxt$ = "BYTES: Dwn=" + STR$(CVS(ZDlBytes$)) + _
  109.               "  Up=" + STR$(CVS(ZULBytes$)) + _
  110.               " TODAY Dwn: #=" + STR$(CVS(ZTodayDl$)) + _
  111.               " Bytes=" + STR$(CVS(ZTodayBytes$))
  112.          GOSUB 63583
  113. * REPLACING old line(s) by new
  114. 63630 ' * Sets the user preferences based on user record.
  115.       ' * Formerly in RBBS-PC.BAS
  116.       SUB SetUserPref STATIC
  117.       IF ZWasA THEN _
  118.          ZUserSecLevel = ZSysopSecLevel _
  119.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  120. * ------[ first line different ]------
  121.       ZDropTimes = ASC(ZDropTimes$)                                  ' DROP174
  122.       ZBankTime = ASC(ZBankTime$)
  123.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  124.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  125.       IF ZUserXferDefault$ = " " THEN _
  126.          ZUserXferDefault$ = "N"
  127.       CALL XferType (2,ZTrue)
  128.       WasX = ASC(MID$(ZUserOption$,6,1))
  129.       ZWasGR = (WasX MOD 3)
  130.       ZBoldText$ = CHR$(48 - (WasX > 50))
  131.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  132.       IF ZUserTextColor > 37 THEN _
  133.          ZUserTextColor = ZUserTextColor - 7
  134.       IF ZEmphasizeOff$ <> "" THEN _
  135.          CALL QuickTPut (ZColorReset$,0)
  136.       IF ZEmphasizeOnDef$ <> "" THEN _
  137.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  138.       ELSE ZEmphasizeOff$ = ""
  139.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  140.          ZWasGR = 0
  141.       CALL SetGraphic (ZWasGR)
  142.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  143.       IF ZRightMargin > 72 THEN _
  144.          ZRightMargin = 72
  145.       IF NOT ZConfMode THEN _
  146.          ZWasCI$ = ZCityState$ : _
  147.          CALL Trim (ZWasCI$)
  148.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  149.       ZPromptBell = (UserOptions AND 1) > 0
  150.       ZExpertUser = (UserOptions AND 2) > 0
  151.       CALL SetExpert
  152.       ZNulls = (UserOptions AND 4) > 0
  153.       ZUpperCase = (UserOptions AND 8) > 0
  154.       ZLineFeeds = (UserOptions AND 16) > 0
  155.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  156.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  157.       ZAutoDownDesired = (UserOptions AND 128) > 0
  158.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  159.       ZMailWaiting = (UserOptions AND 512) > 0
  160.       WasX = (UserOptions AND 1024 ) > 0
  161.       CALL SetHiLite (NOT WasX)
  162.       IF NOT ZHiLiteOff THEN _
  163.          CALL QuickTPut (ZEmphasizeOff$,0)
  164.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  165.       ZTurboKey = ZFalse
  166.       ZFileWaiting = (UserOptions AND 4096) > 0
  167.       CALL SetRegDisplay
  168.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  169.       IF ZSubBoard THEN _
  170.          GOTO 63632
  171.       WasX$ = ZEchoer$
  172.       ZEchoer$ = MID$(ZUserOption$,14,1)
  173.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  174.          ZEchoer$ = "R"
  175.       IF WasX$ <> ZEchoer$ THEN _
  176.          CALL ReportEcho
  177.       CALL SetEcho (ZEchoer$)
  178. * REPLACING old line(s) by new
  179. 63675 SUB SetUserUpDn STATIC
  180.       ZDnlds = CVI(ZUserDnlds$)
  181.       ZUplds = CVI(ZUserUplds$)
  182. * ------[ first line different ]------
  183.       ZDropTimes = ASC(ZDropTimes$)                                  ' DROP174
  184.       ZBankTime = ASC(ZBankTime$)
  185.       IF ZEnforceRatios THEN _
  186.          ZDLToday! = CVS(ZTodayDl$) : _
  187.          ZBytesToday! = CVS(ZTodayBytes$) : _
  188.          ZDLBytes! = CVS(ZDlBytes$) : _
  189.          ZULBytes! = CVS(ZULBytes$)
  190.       END SUB
  191.       SUB SetGlobalUpDn STATIC
  192.       IF NOT ZGlobalsSet THEN _
  193.          ZGlobalsSet = ZTrue : _
  194.          ZGlobalDnlds = ZDnlds : _
  195.          ZGlobalUplds = ZUplds : _
  196.          ZGlobalDLToday! = ZDLToday! : _
  197.          ZGlobalBytesToday! = ZBytesToday! : _
  198.          ZGlobalDLBytes! = ZDLBytes! : _
  199.          ZGlobalULBytes! = ZULBytes! : _
  200.          ZGlobalDropTimes = ZDropTimes : _                           ' DROP174
  201.          ZGlobalBankTime = ZBankTime
  202.       END SUB
  203.